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MODULE INIALL ( 
ANGUAGE (8115532), 
DENT = 'V04=000" 


~~ 


BEGIN 


' 
RRR RRR RRRAERARAARREAER AERA EEE REE AEE EEAEAREETERE RE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
i edt tte OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


SoOSSSOSSOSOSOOSOOOSOSOOSOOOOOOOSOOSOSOOOOSoCSoOO 


; 

- 

3 5 1 

s $ 1 

$ 1 

3 8 1 

Ps 9 1 ey 
; 10 1 * 
. e : ; 
Py ® 
: ig 1 & 
3 14 1 * 
; : : 
5 ® 
4 17 1 !* COP THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 18 01 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ i b3 : + TRANSFERRED. * 
° ; a 
5 21 02 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 22 02 1 !® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8 Si 03 ! :* CORPORATION. * 
° ; tt 
; 25 0 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
HY $8 os : ? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPL'"D BY DIGITAL. * 
° 4 ie 
3 28 02 1 !e * 
2 $9 4 : Lee RARER AREER AERA AERA AAA AAAS 
: 31 031 1 !44 

3 3 032 1! 

3 7 OR7 ' FACILITY: INIT Utility Structure Level 1 

: 35 0035 1 | ABSTRACT: 

; & 0036 1} :; 

3; @7 0037 1! This module contains the routines that allocate the pieces of the 

3 4 0038 1! file structure on the disk. 

3 9 0039 1! 

: 40 0040 1 ! ENVIRONMENT: 

; 2 boeo 1 | STARLET ti tea, includi ivileged syst i 

3 ! operating system, including privileged system services 

: rk irk 1! and interned phe vi ny me My nis ° 

3 44 0044 1! 

s 65 0045 1 !-- 

: 646 0046 1! 

: 67 0047 1! 

: $8 ne : AUTHOR: Andrew C. Goldstein, CREATION DATE: 12-Nov-1977 20:02 

: 30 9090 i MODIFIED BY: 

: 4 905¢ 1 v02-004 ACG0191 Andrew C. Goldstein, | 18-Feb-1981 19:49 

3 a 0084 : : Fix index file allocation at end of volume 

: 33 055 1! v0102 aACcG0152 Andrew C. Goldstein, 29-Feb-1980 17:01 

; 38 9238 ! Fix home block delta to correct blocking factor 
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Vv04 4-Sep-1984 12:35:1 DISKSVMSMASTER: CINIT. SRCJINIALL.832; ¥y 
; 38 1! v0101 ACG0069 Andrew C. Goldstein, 9-0ct-1979 16:37 
; Fe : } Remove device data table 
: 61 1 i v0100 AcG00001 Andrew C. Goldst tein 0-0¢t< 1978 21:27 
s ? : fae Previous revision history moved to CINIT.SR RCJIN REV 
: § : 
; 66 1 LIBRARY V SYSSLIBRARY: YeLIBsL .L32'; 
es. 1 REQUIRE ‘SRCS$:INIDEF 
3 63 $0 : REQUIRE "PIBDS: CYMSLIB. OBJJINITMSG. B32'; 
: 91 1 
3 71 35 1 FORWARD ROUTINE 
s 7 93 1 oe: ALLOCATE : NOVALUE, ! main allocation routine 
ae 94 1 ALLOCAT : NOVALUE, ' general allocation scan 
: 74 95 1 ALLOCATE_HOME : NOVALUE, ' allocate on home block sequence 
eae. 36 1 CHECK_ALCOC; ! yerify a candidate allocation 
: 38 | 
: «78 198 
3 79 500 1 !+4 
; 0 231 73 
; 1 5 ¢ 1 ! Module own storage 
; & 503 1! 
3 8 5046 1 !- 
; BG 0505 1 
; #85 0506 1 ; 
; 84286 0507 1 HOMEBLOCK_DELTA; ! home block search increment on this volume 


r$-Bep-964 01:42:15 VANCT atisee32 v4iQe742, page oF 
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: } GLOBAL ROUTINE INIT_ALLOCATE : NOVALUE = 
: 164 | 
. ! 

3 84 : ! FUNCTIONAL DESCRIPTION: 

3 94 1461! This is the main at tecet ten routine. It determines the size and 

s 9 1. 3 Location of each portion of the file structure. Each allocation is 
$ 38 1 : gone by Pipette F 3 coneit -? Loqet on for the ee he ee hy 
; or conflicts. a conflict exists, a new candidate loca 

; 98 18 ! } chosen according an algorithm specific to the section being allocated. 

3 160 0 1! 

: 101 1 1 ! CALLING SEQUENCE: 

3 196 5 ¢ 1! INIT_ALLOCATE () 

Py 10 5 1! 
3 104 504 1 | INPUT PARAMETERS: | 
s 105 525. 1! NONE 

3 196 5 § 1! 

s 10 05 1 ! IMPLICIT INPUTS: 

; 108 82 eS & parser databa 

3 + B2 9 : } allocation table in INIDSK 
3 (111 0531 1 ! OUTPUT PARAMETERS: 
; 118 033¢ 1 i NONE | 
s 6S 5 1! 

; 6116 B2 1 ! IMPLICIT OUTPUTS: 

s 115 535 1! NONE 

3 138 05 $ 1! 
: 11 0537 1 ! ROUTINE VALUE: 
: #118 B2a6 1! NONE 
3 119 0539 1! 
8 139 0540 1 ! SIDE EFFECTS: 
> ae 0541 1! allocation table modified 
3 \$¢ R206 1! 

: 126 0544 #1 

oz 0545 BEGIN 
; 126 9268 

.. Sar 054 EXTERNAL 
: 128 0548 INIT_OPTIONS : BITVECTOR, ' command options 

3 193 0549 CLUSTER, : voluse cluster fac 

Fe 0550 INDEX ! requested LBN of Snitial index file 

: 131 B22) HEADERS, ! tial number of file headers 

ee § 226 MAX ! bons a number of files 

5 055 DIRECTORIES, ' number of MFD entries to allocate 

3 13 B22 VOLUME _SI ' size of volume rounded to next cluster 

> 3 555 DEVICE CHAR : BBLOCK, ' device charactreistics buffer 

: 136 228 BOOTBLOCK_CNT, ! block count of boot block cluster 

3 HA 55 BOOTBLOCK_LBN ' LBN of boot block cluster 

es 358 HOMEBLOCKT_CNT, i block count of home block 1 cluster 

3; «4139 55 HOMEBLOCK1_LBN, ' LBN of home block 1 giuster 

: 140 560 HOMEBLOCK2_ CNT, ' block count of h block é cluster 

3: 161 561 HOMEBLOCK2 LBN, ' LBN of — block 2 cluste 

; i$¢ 266 IDXFILE_CNT, ' block c of initial te file 

: (14 56 tat = BN, ! LBN of Initia index file 

3; (144 564 IDXHDR2_CNT, ! block count of 2nd index header cluster 


storage map block). 


BOOTBLOCK_CNT = 1; 
ALLOCATE TBOOTBLOCK_IDX, 0); 


IF .BOOTBLOCK LBN NEQ 0 
THEN ERR_MESSAGE (INITS_BLKZERO); 
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HOMEBLOCK1_CNT = 1; 
it INIT _OPTIONSCOPT STRUCTURET) 


eLs ALLOCATE_KOME (HOMEBLOCK1_IDX) 


IF .BOOTBLOCK_LBN EQL 0 AND .CLUSTER GTR 1 
ALLOCATE (HOMEBLOCK1_IDX, 0) 
ALLOCATE_HOME (HOMEBLOCK1_IDX); 


HOMEBLOCK2_CNT = 1; 
ALLOCATE HOME (HOMEBLOCK2_1DX); 
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ock count of 
f MFD 


storage bitmap 
bitmap 


Lume end allocation table entry - LBN 


boot block cluster 
home block 1 cluster 


home block 2 ¢ 


initial index fil 
2nd index header cluster 


storage bitmap 
MFD . 


6 cluster boundary (being the end of the 


VOLEND_CNT = (4096 = (.DEVICE_CHARCDIBSL_MAXBLOCK] / .CLUSTER) MOD 4096) * .CLUSTER; 
VOLEND_LBN = .DEVICE_CHARCDIBSL_MAXBLOCK] / .CLUSTER * .CLUSTER; 


Allocate the boot block to the first available cluster (usually 0). 
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INI] 16-Sep-1 
12: opel 
65 IDXHDR2_LBN, ! 
4 BITMAP_CNT, } 3 
6 BITMAP _LBN, tL 
6 MFD_CNT, 'b 
° MFD_LBN ' LBN o 
VOLEND_€NT, iy 
VOLEND_LBN; ; ¥ 
278 EXTERNAL LITERAL 
574 BOOTBLOCK_IDX  : UNSIGNED (6), ! table 
575 HOMEBLOCKT_IDX =: UNSIGNED (6), ! table 
278 HOMEBLOCK2 IDX : UNSIGNED {9}. ' table 
7 aes he : UNSIGNED (6), ! table 
3/8 IDXHDR2_ IDX : UNSIGNED (6), ! table 
7 Tox : UNSIGNED (6), ! table 
$8 _ 108 : UNSIGNED (6); ! table 
aK 
05 ! First make up an allocation pointer to represent the space from the end 
B2ee ! of the volume to the next £06 - , 
05 
$889 
0588 
0589 
B2 
2 1 
$898 
B2 4 
0896 
0899 
05 


! Next allocate the primary and secondary home blocks. If the boot block is 
! on LBN 0 and the cluster factor is greater than 


, then the primary home 
block cluster is a dummy since the real home biock is LBN 1. 
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Lume end allocation table entry - count | 


luster 
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; § 6 ; ' Now allocate the MFD, storage map, initial index file, and alternate 
; i index file header, in that order. This results in optimal Locality of 
: 4 ' fhe pest frequent referenced portions of the file structure. Note that 
3 5 5 ! if the index file is being placed at the end of the volume they are 
; 0 $ allocated in reverse to achieve the same effect. 

$ $8 § MFD_LBN = INDEX; 

: 210 0 @ BITMAP_LBN = . INDEX; 

8 1} 631 IDXFILE_LBN = . INDEX; 

$ ig 4 IF NOT .INIT_OPTIONSCOPT_INDEX_END] 

. 1 Oe THEN 

3 18 80 MFD_CNT = .DIRECTORIES/16 + 1; 

: 21 ALLOCATE (MFD_IDX, 0); 

: 218 06 8 BITMAP_CNT = T(. VOLUME SIZE/.CLUSTER + 4095) / 4096) + 1; 

3 19 6 ALLOCATE (BITMAP_IDX ds 

; 220 0640 IDXFILE_CNT = .HEADERS + (.MAXIMUM+4095) /4096; 

Wes 1 ALLOCATE (CIDXFILE_IDX, 0); 

3 ¢ Bote END 

3 064 ELSE 

$ 4 0644 BEGIN 

4 $2 0645 IDXFILE_CNT = .HEADERS + (.MAXIMUM+4095) /4096; 

; 6 0646 ALLOCATE (IDXFILE_IDX 4 

3 2e7 0647 BITMAP_CNT = ((. VOLUME_SIZE/.CLUSTER + 4095) / 4096) + 1; 

3 28 0648 ALLOCATE (BITMAP_IDX de 

; ¢9 0649 MFD_CNT = .DIRECTORIES/16 + 1; 

; § 0650 ALLOCATE (MFD_IDX, 1); 

3 He 0651 END; 

. 2 ¢ b028 

3 3 065 IF NOT .INIT_OPTIONSCOPT_STRUCTURE1] 

: 234 0654 THEN 

3 5 0655 BEGI 

; 0656 IDXHDR2_CNT = 1; 

3 237 065 IDXHDRe-LBN = .1DXFILE_LBN + .HOMEBLOCK_DELTA; 

3 $ 0658 IF - INIT_OPTIONSCOPT_INDEX_ENDJ 

$ 9 0659 THEN 

3 40 0660 4 BEGIN 

3 41 0661 4 IDXHDR2_LBN = .IDXFILE_LBN - .HOMEBLOCK_DELTA; 

3 4 Berg 4 ALLOCATE CIDXHDR2_IDX, 1); 

: 24 0663 4 

$ 44 664 ELSE 

: 45 665 ALLOCATE (IDXHDR2_IDX, 0); 

; 266 $6 END; 

: 47 66 

3; 248 668 END; ! end of routine INIT_ALLOCATE 
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IDENT \V04-000\ 

-PSECT SOWNS,NOEXE,2 
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PTIONS CLUSTER 
DERS MAXIMUM 


R 
C 
C 
8 
8 
fans LB UA IDXF 


at R2 tN NTN 
OR CBN BIT MAP 


tnT 


x PmMmn rm —4 


a pS 

INIT_ALLOCATE, Save R2,R3,R4,R5 
IDXFILE_LBN, RS 

CLUSTER, R4 

ALLOCATE, ae 

cLUSTE 

; 1, DEVICE CHAR+112, R2 


) 
sige “(SPS a, RO, RO 
-4096(R0), RO 


S*B00TBLOCK 10x, -(SP) 
#2, ALLOCATE 

BOOTBLOCK _LBN 

#7704576 

#1, LIBSSIGNA 

#1 HOMEBLOCK1 _CNT 
NIT_OPTIONS+3~ 
“HOMEBLOCK1_IDX, -(SP) 
OOTBLOCK_LBN 

ct USTER, #1 


~ (SP) 


K1 
TE~ 
K1 -(SP) 
#1, ALLOCATE~ ome 
Oske cK NT 
K -(SP) 
TE~ ae 
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SCODES + 0000 


MAP 10x. -(SP) 
#2095. et , RO 
2 IDXFILE_CNT 
“IDXFILE_IDX, (SP) 
#4095, MAXIMUM, RO 
SHEADERS TROD, IDXFILE_CNT 
SSIDXFILE IDK, =(SP) 
#2, ALLOCAT 
CLU TER VOL UME SIZE, RO 
4 3 (R ROS 
#4096, 
1(RO), BITMAP. CNT 
$*B1 ITMAP Dx. -(SP) 


& 
#0 DIRECTORIES RO 


Mal 
8 
I 
I 
) 
) 
D 
A 
T 
( 
6 
) 
) 
T 
ALL 


ne 
S“MFD_IDX, =(SP) 
CATE 


#2, ACLOCAT 
Ini. OPT IONS +3 
#1, IDXHDR2 


HOMEBLOCK SELTA ,JOXEILE_LBN, IDXHDR2_LBN 


#6, INIT OPT . 8 
WOREGLOCK DELTA, *TOXxF ILE_LBN, 


=(SP) 
S*IDXHDR2 IDX, -(SP) 
2. ALLOCATE 


Pe Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Be Se Se Se Se Be Se Se Se Be Sete Se Ge Be Se Se Se Se Se Se Ge Se Be Se Ge Se Ge Se Be Se Se 


ss 


H 15 
1e$ep-1986 92:98:13 bE Sksmsnastenscl 


ROUTINE ALLOCATE (INDEX, REVERSE) : NOVALUE = 


4.0-742 p 8 
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i FUNCTIONAL DESCRIPTION: 


This routine allocates the given table entry in the first available 
position after the given start, searching in the given direction. 


i CALLING SEQUENCE: 
ALLOCATE (ARG1, ARG2) 


! INPUT PARAMETERS: 
ARG1: allocation table index of entry to allocate 
ARG2: direction: 0 = forward 

1 = reverse 


' 
' 
' 
' 
' 
1 
! 
! 
' 
! 
' 
1 
! 
! 
' IMPLICIT INPUTS: 
allocation table 
t 
1 
! 
' 
1 
' 
1 
1 
' 
1 
1 
! 
i] 


-o 


i QUTPUT PARAMETERS: 
i NONE 


POPOPOROPOROfoRoNoNonofornononore 
~ SosS 
OOnNOu 


SNS NSN NNO 
ODONAUS wr 


i IMPLICIT OUTPUTS: 
entry in allocation table 


i ROUTINE VALUE: 
NONE 
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2 
2 
3 
80 069 ! SIDE EFFECTS: 
81 ! NONE 
4 0701 
SE 14 
84 45 
285 07 
86 0705 
87 9708 ; 
88 070 CONFLICT; ! index of conflicting table entry 
89 0708 
90 0709 EXTERNAL 
91 0710 T ' volume cluster factor 
4 0711 VOLUME _$1ZE, ' size of volume rounded to next cluster 
re ALLOC_TABLE_CNT : VECTOR, ' allocation count table 
ay ALLOC_TABLE_LBN : VECTOR; ! allocation LBN table 
715 
rg ' Round the starting LBN and count down and up, respectively, to cluster boundaries. 
71 ! Iterate, checking the propesed location of the entry against the rest o 
rs ! the allocation table. When we encounter a conflict, adjust the location 
ah, past the conflicting entry and try again. 
721 
7 § ALOE TABLE LONE . INDENT = ,ALLOC_TABLE LBNC, INDEX] / .CLUSTER * “SL USTER: 
7 ALLOC"TABLE-CNTC. INDEX) = (.ALLOC_TABLE_CNTC.INDEX] + .CLUSTER - 1) / .CLUSTER * .CLUSTER; 
4 : ay Oy 


CRROPOPOPIPOMOPOPIPIPONONIPIPOMPOPOPYPIPINYIDD 2 = 9 9 2 tO 
- wo - e ome 
om 1 
ao ao 4 
>= 
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¥04-600 mets a aE St ee cee tt th Sf 
: 307 ? | 
; 308 7 5 ! The Limit test works in the reverse direction since we will wrap through 
; 309 7 8 i zero. 
3 10 7 ! 
3H} ba IF .ALLOC_TABLE_LBNC.INDEX3 GEQU . VOLUME. SIZE | 
; 7 .VOLU 
: 13 ? ¢ THEN ERR_EXIT (INIT ME At ALLOCFAIL); - | 
: 315 734 CONFLICT = CHECKALLOC  (. INDEX) ; | 
; 16 f 5 IF .CONFLICT EQL~-1 THEN RETURN: | 
; 18 7 8 IF NOT .REVERSE 
: 1 736 THEN ! arch in forward direction 
: 320 0739 ALLOC_TABLE_LBNC. INDEX] = .ALLOC “TABL E_LBNC.CONFLICT 
; 1 9740 + .ALLOC“TABLE— “tnt [CONFLICT 
3 5 Brg ELSE ! search in reverse direction 
> 326 074 ALLOC_TABLE_LBNC.INDEX] = .ALLOC “TABLE -LBNC. CONFLICT 
; 325 0744 = [ALLOCZTABLE—CNT INDEX: 
3 26 0745 END; 
3 $52 0746 
3 28 0747 1 END; ! end of routine ALLOCATE 
«EXTRN ALLOC_TABLE_CNT 
~EXTRN ALLOC ~TABLE— _LBN 
OOFC 00000 ALLOCATE: 
WO Save R2,R3,R4,R5,R6,R7 ; 0669 
57 00006 CF i 0000 MOVAB ALLOC C_TABLE LEN, "R7 : 
53 04 AC DO 0000 MOVL _—INDEX + 0722 
54 6743 DE 00008 MOVAL ALLOCTABLE_LBNCR3I, R4 : 
51 00006 cf DO O000F MOVL. CLUSTER, R1~ ; 
50 64 . £ 90014 DIVL3 RI, Uns : 
64 50 51 ¢5 00018 MULL3 R11, F 
55 00006CF43 DE 9016 MOVA At ot aiAsee, CNTCR3], RS + 0723 
50 65 51 ¢ 90 ADDL (RS), RO ; 
50 07 000 6 DECL : 
50 31 C6 00 DIVL : n, ; 
65 50 1 ¢5 00028 MULL RI (R5) ; 
56 08 AC 02 99 F MCOML REVERSE : 0737 
90006 CF 64 pi 1$: CHL (R4), VOLURE _SIZE > 0731 
0075807¢ 8F DD A PUSHL 700604 : 0732 
000000006 00 1 FB 9 CALLS ‘1. LIBSSTOP ; 
3 pd 00047 28: PUSHL R > 0734 
0000v CF 1 FB 49 CALLS #1, CHECK_ALLOC F 
2 0 D af MOVL RO, CONFLICT : 
FEFFFFFE © BF 3¢ i } CPL CONFLICT, #1 + 0735 
OA 36 E a BLBC_ =—_«aR,,_- 38 : 0739 
64 6742 oo000GcF42 C1 D ADDL3 ALCOC TABLE z -ENTCCONFLICTI, ALLOC_TABLE_LBN- ; 0740 
CC i 5 BRB : 0739 
64 6742 65 ¢ 3$: SUBL3 (R5), ALLOC_TABLE_LBNCCONFLICTJ, (R4) > 0744 
C5 11 0006C BRB 1$ : 0724 


¥04-000 ib}e opx18ke 93:98:13 PTR dUwGmASTeRscInit sRe aINzALL.032:1°%° at 


04 OO06E 4$: RET ; 0747 
; Routine Size: 111 bytes, Routine Base: SCODES + 0184 
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: , rs ! ROUTINE ALLOCATE_HOME (INDEX) : NOVALUE = ; 
: 750 1 144 : 
: ? ? 1: ; 
: 334 23g 1 | FUNCTIONAL DESCRIPTION: 3 
: 6 754 1! This routine allocates the indicated allocation table entry to ; 
: 7 0755 1! the first available block on the home block search sequence. . 
; 8 7 1! 3 
3 9 Oras 1! 3 
5 40 075 1 ! CALLING SEQUENCE: $ 
3 re 15) : ALLOC_HOME (ARG1) : 
; rk 0761 1 | INPUT PARAMETERS: : 
: te O76¢ : H ARG1: table index of home block cluster : 
: 346 0764 1! IMPLICIT INPUTS: : 
3 ri 143 } } allocation table in INIDSK : 
: 349 O76? 1 | OUTPUT PARAMETERS: : 
fie 2a : 
; 338 0770 1 | IMPLICIT OUTPUTS: : 
3 Fe 144 : entry in table : 
: 355 $778 1 | ROUTINE VALUE: ; 
a Oe LE ioe 7 
: 358 0776 1 | SIDE EFFECTS: : 
3 328 0777 1! NONE § 
; 360 0778 1! 3 
pele Bo : 
: $5 6781 BEGIN : 
S-haca: pe : 
; 363 0784 DELTA, ' home block search delta ; 
; 0785 BLOCKFACT, ! device elocking tector 3 
3 43 LBN; ! home block candidate LBN ; 
; 0786 EXTERNAL : 
3 0789 INIT_OPTIONS : BITVECTOR, ' command options 3 
3 0790 DEVITE_CHAR : BBLOCK, ' device characteristics : 
3 $53 CLUS ' volume cluster factor 3 
$ 79 VOLUME _§1ZE ' size of volume rounded to next cluster 3 
F 79 REAL_HOMEBLOCK i LBN of “official’’ home block F 
; 794 ALLOC_TABLE_CNT : VECTOR, i allocation count table : 
; ak ALLOC_TABLE_LBN : VECTOR; ! allocation LBN table : 
: 79 : 
; 8 ! Compute the home block search delta. For structure level 1, this is simply 3 
; 7 ' 256, except that the first slot is on LBN 1 rather than 0. For level 2, 3 
3 800 ' compute the home block search delta from the verune geometry in the 3 
3 01 ! device table. This is done according to the following rules, where volume 3 
; o¢ geometry is expressed in the order sectors, tracks, cylinders: : 
: Bod i nx ix: 1 : 
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At 
3 4 0805 } x ° x 1: } 
; : x ixn: 
; 389 8 ! 
; 399 $8 ' nxmx is n+} 
3; Wi 9 ‘ nx 1x m: n+] 
3 35 10 ! 1xnx m: n+1 
; 32 13 (t+1)*s+1 
; 4 sxtxe: ttl) *s+ 
3 we 0 13 : 
3 4 oai3 
; 39 15 IF_.INIT_OPTIONSCOPT_STRUCTURE1) 
: 398 518 THEN 
; 399 1 DELTA = 256 
: 400 pais ELSE 
; 401 081 BEGIN 
; 40 0820 4 BLOCKFACT = (.DEVICE_CHARCDIBSB_SECTORS] 
; 40 0821 4 * ,DEVICE_CHARLDIB$B_TRACKS) 
> 404 08 ¢ 4 * ,DEVICE_CHAR(DIBSW_CYLINDERS] 
; 405 08 / DEVICE CHARCDIBSL_MAXBLOCK); 
: 406 0824 
: 407 0825 DELTA = 1; 
; 408 0826 IF -DEVICE_CHAREDIBSW_CYLINDERSI GTR 1 
: 409 08 AND .DEVICE_CHARCDIBSB_TRACKS) GTR 1 
: $19 O88 THEN DELTA = .DELTA + .DEVICE_CHARCDIBS$B_TRACKS); 
3 216 0830 IF .DEVICE_CHARCDIBS$B SECTORS] GTR 1 
; «(41 0831 4 AND (.DEVICE_CHARCDIB$Q_CYLINDERS] GTR 1 
3; 416 tt 4 OR .DEVICE_CHARCDIB$SB_TRACKS) GTR 1) 
; rte Oaez 3 THEN DELTA = ({DELTA * .DEVICE_CHARCDIB$B_SECTORS] + .BLOCKFACT) / .BLOCKFACT; 
3; 417 0835 IF .DELTA EQL 0 
; 418 tty OR .DELTA GTRU .DEVICE_CHARCDIBSL_MAXBLOCK] / 10 
: 419 083 THEN DELTA = 1; 
: 420 0838 ND; 
; 421 0839 
: 2 § Oaey HOMEBLOCK_DELTA = .DELTA; 
3 rh pees ' Round the starting LBN and count down and up, respect ivety. to cluster boundaries. 
; 425 084 ! Now find the first available cluster on the search sequence by starting 
3 ? $ bee } with LBN 1 and incrementing by the delta for each try. 
; 428 846 
3 o86 Beg LBN = 1; 
s 631 § ALLOC_TABLE_CNTC.INDEX] = (.ALLOC_TABLE_CNTC.INDEX] + .CLUSTER - 1) / .CLUSTER * .CLUSTER; 
; 4 $ Ba30 WHILE 1 DO 
: 4 51 BEGIN 
; 4 26 ALLOC_TABLE_LBNC.INDEX] = .LBN / .CLUSTER * .CLUSTER; 
: 435 5 IF CHECK_ALCOC (, INDEX) EQL -1 THEN EXITLOOP; 
; 436 54 IF_.INIT~OPTIONSCOPT STRUCTURE1) 
s 65 55 THEN LBN™= .LBN AND ROT 1; 
; 438 2$ LBN = .L + DELTA; 
: 439 5 IF .LBN GEQU VOLUME _S1ZE 
; 440 38 THEN ERR_EXIT (INITSALLOCFAIL); 
3 $3 23 END; 
: 108 1 REAL_HOMEBLOCK = .LBN; ! save LBN of actual block 
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b8e8 f END; ! end of routine ALLOCATE_HOME 


-EXTRN REAL_HOMEBLOCK 


007C 00000 ALLOCATE _HOME: 
RD 2, AG R4,R5,R6 ; 0748 


SWORD Save R ; 
56 00006 CF 9E 9002 MOVAB CLUSTE : 
6 00006 CF 3 909 MOVAB DEVICE CHAR+10, RS : 
00006 F 73 000¢ IST INIT _OPTIONS* + 0815 
53 0100 i 5¢ 001 MOV ZUL #256, DELTA + 0817 
52 FE AS 9A 00019 1$ MOVZBL DEVICE_CHAR+8, R2 + 0820 
51 FF AS 9A 00010 te DEV vite. CHAR+9, R1 ; 0821 
50 52 5} c3 00021 ULL3 R1, R27 RO : 
54 69 C 00 5 MOVZWL DEVICE. CHAR+10, R4 + 0822 
50 4 (4 00028 ULLg R4, RO F 
54 20 66 AS C7 00028 DIVL3 DEVICE_CHAR+112, RO, BLOCKFACT + 0823 
5 01 DO 900 0 OVL #1, DELTA + 0825 
50 D4 000 CLRL — RO + 0826 
01 65 B1 00035 CMPW  DEVICE_CHAR+10, #1 : 
OA 1B 00038 BLEQU 2$ : 
50 D6 O003A INCL RO ‘ 
01 51 91 0003C¢ CMPB aR, #1 + 0827 
03 1B 0003F BLEQU 2$ F 
53 51 CO 00041 ADDL2 1, DELTA : 0828 
01 3 91 00044 2$: CMPB. sé, #1 : 0830 
13 1B 00047 BLEQU 4$ : 
05 50 £8 00049 BLBS RO, 3$ + 0831 
01 51 91 0004C CMPB- RT, #1 + 0832 
08 18 OO04F BLEQU 4$° ; 
50 53 52 C5 00051 3$ MULL3 2, DELTA, RO : 0833 
50 54 ¢0 00055 ADDL2 BLOCKFACT. RO ; 
53 50 54 C7 00058 DIVL3 BLOCKFACT. RO, DELTA : 
53 D3 0005 4$ TSTL DELTA > 0835 
0A 13 0005 BEQL 5$ : 
50 66 AS OA C7 0006 DIVL3 #10, DEVICE_CHAR+112, RO : 0836 
50 53 D1 0006 CMPL DELTA, RO : 
03 1B 00068 BLEQU 6$ ; 
53 01 DO 0006A 5S: MOVL #1, DELTA : 0837 
0000" gf 3 D 68 6$: MOVL poeta HOMEBLOCK_DELTA ; 0840 
2 1 =O MOVL : 0847 
54 04 AC DO 0007 MOVL INDEX, R4 : 0849 
29 OOOOGCF44 OD 079 MOVL ALLOC TABLE _CNTCR4], RO : 
1 66 4 4 MOVL CLUSTER $ 
20 FF rag 3 : HOVA “HRI CAO), RO ; 
OO000GCF44 50 51 c3 $0 A MULLS R11. R ALLOC _TABLE_CNTCR4) : 
50 32 66 ¢ 99 1 7$ DIVL3 CLUSTER, : 0852 
OOOOGCF 44 0 6 ¢5 95 MULL CLUSTER, RON NT LoC TABLE _LBNECR4] i 
4 Dd 0009¢ PUSHL R4 > 0853 
0000V fr 1 ro CALLS #i, Seg SR _ML OC 3 
FFFFFFFF F 8 D A CMPL RO, &- 3 
13 OOOAA BEQL 4=s«O9S : 
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00006 CF 95 A TSTB jyit-or OPTIONS+3 1 0854 
3 j B BGEQ ; 
38 eb boons 8s: Robes Hk : 5 33 
00006 CF d1 00088 CMPL LEN. Mn OL UME SIZE + 085 
1F 0008D BLSSU : 
0075807C 8F DD O00BF PUSHL 00604 + 0858 
000000006 00 Fe C5 CALLS Mattie jaw 
00006 CF : b0 cE 9$: MOVL (mu, REAL_HOMEBLOCK : O86 
D RET + 0863 
; Routine Size: 212 bytes, Routine Base: S$CODE$ + 01F3 


dl 


—ICOWNOOWZ EK KOCK TOMO CW!™T Sl KOK TO MWMMOOCO!S Sr ACH TO *MVIOCOZ Sr ACK TO MIOOW 


16 
16-5 “1984 01:42:1 VAX=11 Bliss-32 V4.0-742 P 5 
1 -35p-1 $82 9:98:13 DISKSVMSMASTER:CINIT.SRCJINIALL.B32;1 3 


; rr } ROUTINE CHECK_ALLOC (INDEX) = 

: | i 

. ' 

3 ? ! : FUNCTIONAL DESCRIPTION: 

3; 6 1! This routine checks the indicated allocation table entry for 

; : ¢ 4 : } conflicts against all other table entries. 

3 § § 75 1! 

3s 6 ne 1 ! CALLING SEQUENCE: 

3 ? 3 4 ! CHECK_ALLOC (ARG1) 

; 4660 6 1 ! INPUT PARAMETERS: 

3 red 4: } : ARG1: index of table entry to check 

; 46 80 1 ! IMPLICIT INPUTS: 

: 464 ei 7! allocation table in INIDSK 

; 465 Hf 1! 

3 $96 885 1 ! OUTPUT PARAMETERS: 

; 46 884 1! NONE 

; 468 HH 1; 

; 469 56 1 ! IMPLICIT OUTPUTS: 

; 470 887 1! NONE 

3; 471 0888 1! 

; 47 0889 1 ! ROUTINE VALUE: 

3; 467 0890 1! index of conte ter ine table entry 

: 4676 0891 1! or -1 if no conflic 

3; 6975 B85 1! 

: 47 895 1 ! SIDE EFFECTS: 

: 47 0894 1! NONE 

; 478 0895 1! 

:; 479 4 1 !-- 

; 480 0897 1 

; 481 0898 BEGIN 

3; 6 ; 0899 

; 48 0900 EXTERNAL 

; 0901 ALLOC_TABLE_CNT : VECTOR, ! allocation count table 

; 485 8308 ALLOC_TABLE_LBN : VECTOR; ' allocation LBN table 

; 48 904 EXTERNAL LITERAL 

3 905 ALLOC_MAX : UNSIGNED (16); ! total size of allocation table 
: 4689 208 

; 491 $9 8 ! Simply scan the entire table, doing a range compare on each entry (noting 
; 49 909 ! not to compare the candidate against itself). Active table entries are 
3; (49 910 ! identified by a non-zero count. 

3: 6946 911 : 

; «495 1 

: £36 1 INCR J FROM 0 TO ALLOC_MAX DO 

; 49 914 BEGIN 

3 rhs | HF 4 -ALLOC_TABLE CNTC.JJ NEQ 0 

; $00 319 AND .ALLOC_TABLE_LBN df + ,ALLOC_TABLE ree GTRU .ALLOC_TABLE_LBNC.INDEX) 
; 501 18 AND .ALLOC~TABLE-LBNL.J) LSSU .ALCOC_TABLE_CNTC.INDEX) + .ACLOC_TABLE_LBNC. INDEX) 
3 208 4h pan EXITLOOP .J; 
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! end of routine CHECK_ALLOC 


-EXTRN ALLOC_MAX 
000C 00000 CHECK_ALLOC: 
» WORD Save 
53 00006 CF 9E g MOV ALLOC. Re Re _LBN, R3 
t $f S000, BRE 
51 0000GCF : D ¢ 18 MOVL  ALLOC_TABLE_CNTCJJ, R1 
é 1 12 BEQL 
04 AC 0 D1 00014 CMPL INDEX 
4 13 00018 BEQL 
52 6340 1 C1 QOO1A ADDL3 R1, ALLOC_TABLE_LBN[JJ, R2 
51 04 AC DO OOO1F MOVL EX, 
6341 5 D1 000 ; CMPL R2, ALLOC_TABLE_LBN[R1) 
1 1B 000 BLEQU 2$ 
51 04 AC DdO0 00029 MOVL INDEX, R1 
51 OOOOGCF41 6341 ¢1 00020 ADDL3 ALLOC_TABLE_LBNCR1J, ALLOC_TABLE_CNTCR1], 
51 6340 D1 00035 CMPL ALLOC_TABLE_LON(JJ, R1 
0 1F 00039 BLSSU $ 
C9 50 000000006 8F F3 ita 28 AOBLEQ M#ALLOC_MAX, J, 1$ 
50 01 CE 0004 NEGL #1, RO 
04 00046 3$ RET 
; Routine Size: 71 bytes, Routine Base: S$CODES + 02C7 
Te 
3 507 0394 1 END 
; 508 0925 0 ELUDOM 
~EXTRN LIBSSIGNAL, LIBSSTOP 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC ,ALIGN(2) 
; S$CODES 783 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bin eee tac sh ee eee ee Symbols -<------ Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 8 0 1000 00:02.0 
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0864 
0913 
0915 
0916 
0917. 


0918 


; 0913. 
; 0922 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$: INIALL/OBJ=OBJ$: INIALL MSRC$: INIALL/UPDATE=(ENHS$: INIALL) 
; Size: 782 ge + 4 data bytes 
; Run Time: ge 9 

; Elapsed Time 742.6 

; Lexemes/CPU-M 
; Memor 


Y Used: 132 pages 
; Compilation Complete 


Se Ge Ge Ge Ge tee 
_ 
— 
* 
w 
~ 
o 
e 
=z 
+5 
ee 

meee 
3 
~ 
SS 
Www 


-y 
= 


ENT CORPORATION 


AH-BT13A-SE I 
L_AND PROPRIETARY 


DIGI 
VAX/VMS V4.0 _ CONF 


0186 


